home *** CD-ROM | disk | FTP | other *** search
/ Grapevine 20 / Grapevine 20 (Disk 1 of 2).adf / Files / arexxexamps.lha / ARTICLES / AREXX_EXAMPLES / Example13.rexx < prev    next >
OS/2 REXX Batch file  |  1980-01-07  |  310b  |  13 lines
  1. /*   Example 13    */
  2.  
  3. fileptr = "tempfile"
  4. path    = "RAM:TempFile"
  5.  
  6. If Open(fileptr, path, "R") Then Do
  7.      Do While ~Eof(fileptr)    /* While NOT End Of File */
  8.         Say Readln(fileptr)   /* Read A Line Of Characters */
  9.      End
  10.      Call Close(fileptr)
  11. End
  12. Else
  13.    Say "Unable to open and read file..."